' {$STAMP BS2}

'Program 1.2, Simple Heater
LED1    VAR   OUT4
RC      CON   7
Temp    VAR   Word

OUTPUT 4
LED1 = 1

Main:
  GOSUB ReadTemp
  GOSUB CheckTemp
  PAUSE 250
GOTO Main

ReadTemp
  HIGH RC
  PAUSE 10
  RCTIME RC, 1, Temp
  Temp = Temp/30

  DEBUG "Temp = ",DEC Temp, CR
RETURN

CheckTemp:

  IF (Temp > 100) OR (LED1 = 1) THEN CheckOff
  LED1 = 1
  DEBUG "The Heater Energized",CR

CheckOff:
  IF (Temp < 120) OR (LED1 = 0) THEN CheckDone
  LED1 = 0
  DEBUG "The heater de-energized", CR
CheckDone:
RETURN